﻿Imports System.Data.OleDb
Public Class Homepage
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       
    End Sub
    Protected Function getstar(ByVal stars As Integer)
        Dim retval As String = ""
        For i = 1 To stars
            retval = retval + "*"
        Next
        Return retval

    End Function

    Protected Sub GridView1_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs) Handles GridView1.SelectedIndexChanged

    End Sub
End Class